/***********************************************
Figure E1: Leave Support Aggregate vs Individual
***********************************************/

** indiv
qui reg leave z_income_dis z_f_wealth z_p_wealth $cfe , r
qui margins, at (z_p_wealth=(-1(1)2)) post
marginsplot, xtitle("Individual Property Wealth") ytitle("Pr(Leave)") title("")
graph export "$output/fige11.pdf", replace

** agg

gen high = 1 if low == 0
replace high = 0 if low == 1

qui reg leave high z_income_dis  $cfe , r
qui margins, at (high=(0 1 )) 
marginsplot,  xtitle("LSOA Median Home Prices") ytitle("Pr(Leave)") title("")  
graph export "$output/fige12.pdf", replace


